home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1980-07-23 | 20.7 KB | 322 lines |
- EMPIEZA:
- Unpack 7 To 0
- Wait Key
- Paper 0
- Cls
- Pen 10
- Print " Instructions:"
- Print ""
- Print " At the beginning of the game comes the"
- Print "movement phase. Now you can move your"
- Print "soldiers from any of your lands to any"
- Print "other land in the map for they ride "
- Print "horses. If you move from and to lands"
- Print "that are owned by you, the two armies"
- Print "will join into one. If you move to a"
- Print "free land it will become yours. If you"
- Print "move to a land owned by your opponent"
- Print "then a fight will decide ownership. The"
- Print "fights are usually won by the larger"
- Print "army, but sometimes the small army will"
- Print "win making the game more interesting."
- Print ""
- Print " When one of the players is wiped out"
- Print "from the map, then the other wins."
- Print " At any time during game press ctrl-c"
- Print "to go back to workbench."
- Print ""
- Print ""
- Pen 2 : Print " press any key to continue"
- Wait Key
- Cls
- Pen 10
- Print ""
- Print " I hope you enjoy this game. You can"
- Print "write to me if you have any suggestions"
- Print "to improve the game at this address:"
- Print ""
- Print " Fernando Bartra"
- Print " e-mail address:"
- Print " fer007@scri.fsu.edu"
- Print ""
- Print " Any ideas will be appreciated."
- Print ""
- Print ""
- Print ""
- Print ""
- Print ""
- Print ""
- Pen 2 : Print " press any key to play the game"
- Wait Key
- LANDSHOW:
- If T=0 Then Unpack 8 To 0
- If T=0 Then Wait Key
- If T=0 Then Pen 12
- If T=0 Then Cls
- If T=0 Then Print "War in Makeria"
- If T=0 Then Print ""
- ' Init Stats
- ' Land ownership
- If T=0 Then Input "what is your name player 1 ";N$
- If T=0 Then Input "what is your name player 2 ";M$
- ' owners
- If T=0 Then AA1=1 : AB2=0 : AC3=0 : AD4=0 : AE5=0 : AF6=0 : AG7=0 : AH8=0 : AI9=0 : AJ10=0
- If T=0 Then AK11=0 : AL12=0 : AM13=0 : AN14=0 : AO15=0 : AP16=2 :
- ' Soldiers in land
- If T=0 Then BA1=9 : BB2=0 : BC3=0 : BD4=0 : BE5=0 : BF6=0 : BG7=0 : BH8=0 : BI9=0 : BJ10=0
- If T=0 Then BK11=0 : BL12=0 : BM13=0 : BN14=0 : BO15=0 : BP16=9
- Cls
- Unpack 6 To 0
- Locate 1,1 : Paper 0 : Pen 2 : Locate 3,1 : Print "1 ";N$
- Locate 1,2 : Pen 12 : Locate 3,2 : Print "2 ";M$
- 'Showing land owners
- ZA1=0 : ZB2=0 : Paper 1
- If AA1=1 Then Pen 3 : Locate 4,8 : Print "1" : ZA1=ZA1+1
- If AA1=2 Then Pen 12 : Locate 4,8 : Print "1" : ZB2=ZB2+1
- If AB2=0 Then Pen 5 : Locate 6,13 : Print "2"
- If AB2=1 Then Pen 3 : Locate 6,13 : Print "2" : ZA1=ZA1+1
- If AB2=2 Then Pen 12 : Locate 6,13 : Print "2" : ZB2=ZB2+1
- If AC3=0 Then Pen 5 : Locate 6,17 : Print "3"
- If AC3=1 Then Pen 3 : Locate 6,17 : Print "3" : ZA1=ZA1+1
- If AC3=2 Then Pen 12 : Locate 6,17 : Print "3" : ZB2=ZB2+1
- If AD4=0 Then Pen 5 : Locate 9,9 : Print "4"
- If AD4=1 Then Pen 3 : Locate 9,9 : Print "4" : ZA1=ZA1+1
- If AD4=2 Then Pen 12 : Locate 9,9 : Print "4" : ZB2=ZB2+1
- If AE5=0 Then Pen 5 : Locate 12,11 : Print "5"
- If AE5=1 Then Pen 3 : Locate 12,11 : Print "5" : ZA1=ZA1+1
- If AE5=2 Then Pen 12 : Locate 12,11 : Print "5" : ZB2=ZB2+1
- If AF6=0 Then Pen 5 : Locate 10,16 : Print "6"
- If AF6=1 Then Pen 3 : Locate 10,16 : Print "6" : ZA1=ZA1+1
- If AF6=2 Then Pen 12 : Locate 10,16 : Print "6" : ZB2=ZB2+1
- If AG7=0 Then Pen 5 : Locate 13,15 : Print "7"
- If AG7=1 Then Pen 3 : Locate 13,15 : Print "7" : ZA1=ZA1+1
- If AG7=2 Then Pen 12 : Locate 13,15 : Print "7" : ZB2=ZB2+1
- If AH8=0 Then Pen 5 : Locate 16,18 : Print "8"
- If AH8=1 Then Pen 3 : Locate 16,18 : Print "8" : ZA1=ZA1+1
- If AH8=2 Then Pen 12 : Locate 16,18 : Print "8" : ZB2=ZB2+1
- If AI9=0 Then Pen 5 : Locate 18,11 : Print "9"
- If AI9=1 Then Pen 3 : Locate 18,11 : Print "9" : ZA1=ZA1+1
- If AI9=2 Then Pen 12 : Locate 18,11 : Print "9" : ZB2=ZB2+1
- If AJ10=0 Then Pen 5 : Locate 18,13 : Print "10"
- If AJ10=1 Then Pen 3 : Locate 18,13 : Print "10" : ZA1=ZA1+1
- If AJ10=2 Then Pen 12 : Locate 18,13 : Print "10" : ZB2=ZB2+1
- If AK11=0 Then Pen 5 : Locate 20,17 : Print "11"
- If AK11=1 Then Pen 3 : Locate 20,17 : Print "11" : ZA1=ZA1+1
- If AK11=2 Then Pen 12 : Locate 20,17 : Print "11" : ZB2=ZB2+1
- If AL12=0 Then Pen 5 : Locate 22,12 : Print "12"
- If AL12=1 Then Pen 3 : Locate 22,12 : Print "12" : ZA1=ZA1+1
- If AL12=2 Then Pen 12 : Locate 22,12 : Print "12" : ZB2=ZB2+1
- If AM13=0 Then Pen 5 : Locate 27,12 : Print "13"
- If AM13=1 Then Pen 3 : Locate 27,12 : Print "13" : ZA1=ZA1+1
- If AM13=2 Then Pen 12 : Locate 27,12 : Print "13" : ZB2=ZB2+1
- If AN14=0 Then Pen 5 : Locate 25,16 : Print "14"
- If AN14=1 Then Pen 3 : Locate 25,16 : Print "14" : ZA1=ZA1+1
- If AN14=2 Then Pen 12 : Locate 25,16 : Print "14" : ZB2=ZB2+1
- If AO15=0 Then Pen 5 : Locate 30,16 : Print "15"
- If AO15=1 Then Pen 3 : Locate 30,16 : Print "15" : ZA1=ZA1+1
- If AO15=2 Then Pen 12 : Locate 30,16 : Print "15" : ZB2=ZB2+1
- If AP16=1 Then Pen 3 : Locate 27,20 : Print "16" : ZA1=ZA1+1
- If AP16=2 Then Pen 12 : Locate 27,20 : Print "16" : ZB2=ZB2+1
- Wait 100
- If ZA1=16 or ZB2=0 Then Locate 5,23 : Paper 0 : Pen 6 : Print N$;" wins the game" : Wait Key : Goto EMPIEZA
- If ZB2=16 or ZA1=0 Then Locate 5,23 : Paper 0 : Pen 6 : Print M$;" wins the game" : Wait Key : Goto EMPIEZA
- Locate 3,22 : Paper 0 : Pen 2 : Print N$;" " : Input "move from where ";MA
- If MA=1 and AA1=1 Then VA1=BA1 : BA1=BA1-VA1
- If MA=2 and AB2=1 Then VA1=BB2 : BB2=BB2-VA1
- If MA=3 and AC3=1 Then VA1=BC3 : BC3=BC3-VA1
- If MA=4 and AD4=1 Then VA1=BD4 : BD4=BD4-VA1
- If MA=5 and AE5=1 Then VA1=BE5 : BE5=BE5-VA1
- If MA=6 and AF6=1 Then VA1=BF6 : BF6=BF6-VA1
- If MA=7 and AG7=1 Then VA1=BG7 : BG7=BG7-VA1
- If MA=8 and AH8=1 Then VA1=BH8 : BH8=BH8-VA1
- If MA=9 and AI9=1 Then VA1=BI9 : BI9=BI9-VA1
- If MA=10 and AJ10=1 Then VA1=BJ10 : BJ10=BJ10-VA1
- If MA=11 and AK11=1 Then VA1=BK11 : BK11=BK11-VA1
- If MA=12 and AL12=1 Then VA1=BL12 : BL12=BL12-VA1
- If MA=13 and AM13=1 Then VA1=BM13 : BM13=BM13-VA1
- If MA=14 and AN14=1 Then VA1=BN14 : BN14=BN14-VA1
- If MA=15 and AO15=1 Then VA1=BO15 : BO15=BO15-VA1
- If MA=16 and AP16=1 Then VA1=BP16 : BP16=BP16-VA1
- Locate 3,22 : Pen 2 : Input "where is destination ";MB
- If MB=1 and AA1=1 or MB=1 and AA1=0 Then BA1=BA1+VA1 : VA1=0 : AA1=1
- If MB=2 and AB2=1 or MB=2 and AB2=0 Then BB2=BB2+VA1 : VA1=0 : AB2=1
- If MB=3 and AC3=1 or MB=3 and AC3=0 Then BC3=BC3+VA1 : VA1=0 : AC3=1
- If MB=4 and AD4=1 or MB=4 and AD4=0 Then BD4=BD4+VA1 : VA1=0 : AD4=1
- If MB=5 and AE5=1 or MB=5 and AE5=0 Then BE5=BE5+VA1 : VA1=0 : AE5=1
- If MB=6 and AF6=1 or MB=6 and AF6=0 Then BF6=BF6+VA1 : VA1=0 : AF6=1
- If MB=7 and AG7=1 or MB=7 and AG7=0 Then BG7=BG7+VA1 : VA1=0 : AG7=1
- If MB=8 and AH8=1 or MB=8 and AH8=0 Then BH8=BH8+VA1 : VA1=0 : AH8=1
- If MB=9 and AI9=1 or MB=9 and AI9=0 Then BI9=BI9+VA1 : VA1=0 : AI9=1
- If MB=10 and AJ10=1 or MB=10 and AJ10=0 Then BJ10=BJ10+VA1 : VA1=0 : AJ10=1
- If MB=11 and AK11=1 or MB=11 and AK11=0 Then BK11=BK11+VA1 : VA1=0 : AK11=1
- If MB=12 and AL12=1 or MB=12 and AL12=0 Then BL12=BL12+VA1 : VA1=0 : AL12=1
- If MB=13 and AM13=1 or MB=13 and AM13=0 Then BM13=BM13+VA1 : VA1=0 : AM13=1
- If MB=14 and AN14=1 or MB=14 and AN14=0 Then BN14=BN14+VA1 : VA1=0 : AN14=1
- If MB=15 and AO15=1 or MB=15 and AO15=0 Then BO15=BO15+VA1 : VA1=0 : AO15=1
- If MB=16 and AP16=1 or MB=16 and AP16=0 Then BP16=BP16+VA1 : VA1=0 : AP16=1
- Locate 3,22 : Pen 6 : Print "moving troops to destination" : Wait 100
- Locate 3,22 : Print " " : Wait 100
- ' Fight
- If MB=1 and AA1=2 and BA1<VA1 Then BA1=VA1 : VA1=0 : AA1=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=1 and AA1=2 and BA1>VA1 or MB=1 and AA1=2 and BA1=VA1 Then VA1=0 : AA1=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=2 and AB2=2 and BB2<VA1 Then BB2=VA1 : VA1=0 : AB2=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=2 and AB2=2 and BB2>VA1 or MB=2 and AB2=2 and BB2=VA1 Then VA1=0 : AB2=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=3 and AC3=2 and BC3<VA1 Then BC3=VA1 : VA1=0 : AC3=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=3 and AC3=2 and BC3>VA1 or MB=3 and AC3=2 and BC3=VA1 Then VA1=0 : AC3=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=4 and AD4=2 and BD4<VA1 Then BD4=VA1 : VA1=0 : AD4=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=4 and AD4=2 and BD4>VA1 or MB=4 and AD4=2 and BD4=VA1 Then VA1=0 : AD4=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=5 and AE5=2 and BE5<VA1 Then BE5=VA1 : VA1=0 : AE5=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=5 and AE5=2 and BE5>VA1 or MB=5 and AE5=2 and BE5=VA1 Then VA1=0 : AE5=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=6 and AF6=2 and BF6<VA1 Then BF6=VA1 : VA1=0 : AF6=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=6 and AF6=2 and BF6>VA1 or MB=6 and AF6=2 and BF6=VA1 Then VA1=0 : AF6=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=7 and AG7=2 and BG7<VA1 Then BG7=VA1 : VA1=0 : AG7=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=7 and AG7=2 and BG7>VA1 or MB=7 and AG7=2 and BG7=VA1 Then VA1=0 : AG7=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=8 and AH8=2 and BH8<VA1 Then BH8=VA1 : VA1=0 : AH8=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=8 and AH8=2 and BH8>VA1 or MB=8 and AH8=2 and BH8=VA1 Then VA1=0 : AH8=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=9 and AI9=2 and BI9<VA1 Then BI9=VA1 : VA1=0 : AI9=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=9 and AI9=2 and BI9>VA1 or MB=9 and AI9=2 and BI9=VA1 Then VA1=0 : AI9=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=10 and AJ10=2 and BJ10<VA1 Then BJ10=VA1 : VA1=0 : AJ10=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=10 and AJ10=2 and BJ10>VA1 or MB=10 and AJ10=2 and BJ10=VA1 Then VA1=0 : AJ10=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=11 and AK11=2 and BK11<VA1 Then BK11=VA1 : VA1=0 : AK11=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=11 and AK11=2 and BK11>VA1 or MB=11 and AK11=2 and BK11=VA1 Then VA1=0 : AK11=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=12 and AL12=2 and BL12<VA1 Then BL12=VA1 : VA1=0 : AL12=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=12 and AL12=2 and BL12>VA1 or MB=12 and AL12=2 and BL12=VA1 Then VA1=0 : AL12=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=13 and AM13=2 and BM13<VA1 Then BM13=VA1 : VA1=0 : AM13=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=13 and AM13=2 and BM13>VA1 or MB=13 and AM13=2 and BM13=VA1 Then VA1=0 : AM13=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=14 and AN14=2 and BN14<VA1 Then BN14=VA1 : VA1=0 : AN14=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=14 and AN14=2 and BN14>VA1 or MB=14 and AN14=2 and BN14=VA1 Then VA1=0 : AN14=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=15 and AO15=2 and BO15<VA1 Then BO15=VA1 : VA1=0 : AO15=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=15 and AO15=2 and BO15>VA1 or MB=15 and A015=2 and BO15=VA1 Then VA1=0 : AO15=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=16 and AP16=2 and BP16<VA1 Then BP16=VA1 : VA1=0 : AP16=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=16 and AP16=2 and BP16>VA1 or MB=16 and AP16=2 and BP16=VA1 Then VA1=0 : AP16=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- Locate 3,22 : Pen 3 : Print " "
- Locate 3,22 : Pen 2 : Print M$;" " : Input "move from where ";MA
- If MA=1 and AA1=2 Then VA1=BA1 : BA1=BA1-VA1
- If MA=2 and AB2=2 Then VA1=BB2 : BB2=BB2-VA1
- If MA=3 and AC3=2 Then VA1=BC3 : BC3=BC3-VA1
- If MA=4 and AD4=2 Then VA1=BD4 : BD4=BD4-VA1
- If MA=5 and AE5=2 Then VA1=BE5 : BE5=BE5-VA1
- If MA=6 and AF6=2 Then VA1=BF6 : BF6=BF6-VA1
- If MA=7 and AG7=2 Then VA1=BG7 : BG7=BG7-VA1
- If MA=8 and AH8=2 Then VA1=BH8 : BH8=BH8-VA1
- If MA=9 and AI9=2 Then VA1=BI9 : BI9=BI9-VA1
- If MA=10 and AJ10=2 Then VA1=BJ10 : BJ10=BJ10-VA1
- If MA=11 and AK11=2 Then VA1=BK11 : BK11=BK11-VA1
- If MA=12 and AL12=2 Then VA1=BL12 : BL12=BL12-VA1
- If MA=13 and AM13=2 Then VA1=BM13 : BM13=BM13-VA1
- If MA=14 and AN14=2 Then VA1=BN14 : BN14=BN14-VA1
- If MA=15 and AO15=2 Then VA1=BO15 : BO15=BO15-VA1
- If MA=16 and AP16=2 Then VA1=BP16 : BP16=BP16-VA1
- Locate 3,22 : Pen 2 : Input "where is destination ";MB
- If MB=1 and AA1=2 or MB=1 and AA1=0 Then BA1=BA1+VA1 : VA1=0 : AA1=2
- If MB=2 and AB2=2 or MB=2 and AB2=0 Then BB2=BB2+VA1 : VA1=0 : AB2=2
- If MB=3 and AC3=2 or MB=3 and AC3=0 Then BC3=BC3+VA1 : VA1=0 : AC3=2
- If MB=4 and AD4=2 or MB=4 and AD4=0 Then BD4=BD4+VA1 : VA1=0 : AD4=2
- If MB=5 and AE5=2 or MB=5 and AE5=0 Then BE5=BE5+VA1 : VA1=0 : AE5=2
- If MB=6 and AF6=2 or MB=6 and AF6=0 Then BF6=BF6+VA1 : VA1=0 : AF6=2
- If MB=7 and AG7=2 or MB=7 and AG7=0 Then BG7=BG7+VA1 : VA1=0 : AG7=2
- If MB=8 and AH8=2 or MB=8 and AH8=0 Then BH8=BH8+VA1 : VA1=0 : AH8=2
- If MB=9 and AI9=2 or MB=9 and AI9=0 Then BI9=BI9+VA1 : VA1=0 : AI9=2
- If MB=10 and AJ10=2 or MB=10 and AJ10=0 Then BJ10=BJ10+VA1 : VA1=0 : AJ10=2
- If MB=11 and AK11=2 or MB=11 and AK11=0 Then BK11=BK11+VA1 : VA1=0 : AK11=2
- If MB=12 and AL12=2 or MB=12 and AL12=0 Then BL12=BL12+VA1 : VA1=0 : AL12=2
- If MB=13 and AM13=2 or MB=13 and AM13=0 Then BM13=BM13+VA1 : VA1=0 : AM13=2
- If MB=14 and AN14=2 or MB=14 and AN14=0 Then BN14=BN14+VA1 : VA1=0 : AN14=2
- If MB=15 and AO15=2 or MB=15 and AO15=0 Then BO15=BO15+VA1 : VA1=0 : AO15=2
- If MB=16 and AP16=2 or MB=16 and AP16=0 Then BP16=BP16+VA1 : VA1=0 : AP16=2
- Locate 3,22 : Pen 6 : Print "moving troops to destination " : Wait 100
- Locate 3,22 : Print " "
- ' Fight
- If MB=1 and AA1=1 and BA1<VA1 Then BA1=VA1 : VA1=0 : AA1=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=1 and AA1=1 and BA1>VA1 or MB=1 and AA1=1 and BA1=VA1 Then VA1=0 : AA1=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=2 and AB2=1 and BB2<VA1 Then BB2=VA1 : VA1=0 : AB2=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=2 and AB2=1 and BB2>VA1 or MB=2 and AB2=1 and BB2=VA1 Then VA1=0 : AB2=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=3 and AC3=1 and BC3<VA1 Then BC3=VA1 : VA1=0 : AC3=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=3 and AC3=1 and BC3>VA1 or MB=3 and AC3=1 and BC3=VA1 Then VA1=0 : AC3=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=4 and AD4=1 and BD4<VA1 Then BD4=VA1 : VA1=0 : AD4=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=4 and AD4=1 and BD4>VA1 or MB=4 and AD4=1 and BD4=VA1 Then VA1=0 : AD4=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=5 and AE5=1 and BE5<VA1 Then BE5=VA1 : VA1=0 : AE5=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=5 and AE5=1 and BE5>VA1 or MB=5 and AE5=1 and BE5=VA1 Then VA1=0 : AE5=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=6 and AF6=1 and BF6<VA1 Then BF6=VA1 : VA1=0 : AF6=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=6 and AF6=1 and BF6>VA1 or MB=6 and AF6=1 and BF6=VA1 Then VA1=0 : AF6=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=7 and AG7=1 and BG7<VA1 Then BG7=VA1 : VA1=0 : AG7=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=7 and AG7=1 and BG7>VA1 or MB=7 and AG7=1 and BG7=VA1 Then VA1=0 : AG7=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=8 and AH8=1 and BH8<VA1 Then BH8=VA1 : VA1=0 : AH8=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=8 and AH8=1 and BH8>VA1 or MB=8 and AH8=1 and BH8=VA1 Then VA1=0 : AH8=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=9 and AI9=1 and BI9<VA1 Then BI9=VA1 : VA1=0 : AI9=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=9 and AI9=1 and BI9>VA1 or MB=9 and AI9=1 and BI9=VA1 Then VA1=0 : AI9=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=10 and AJ10=1 and BJ10<VA1 Then BJ10=VA1 : VA1=0 : AJ10=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=10 and AJ10=1 and BJ10>VA1 or MB=10 and AJ10=1 and BJ10=VA1 Then VA1=0 : AJ10=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=11 and AK11=1 and BK11<VA1 Then BK11=VA1 : VA1=0 : AK11=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=11 and AK11=1 and BK11>VA1 or MB=11 and AK11=1 and BK11=VA1 Then VA1=0 : AK11=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=12 and AL12=1 and BL12<VA1 Then BL12=VA1 : VA1=0 : AL12=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=12 and AL12=1 and BL12>VA1 or MB=12 and AL12=1 and BL12=VA1 Then VA1=0 : AL12=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=13 and AM13=1 and BM13<VA1 Then BM13=VA1 : VA1=0 : AM13=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=13 and AM13=1 and BM13>VA1 or MB=13 and AM13=1 and BM13=VA1 Then VA1=0 : AM13=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=14 and AN14=1 and BN14<VA1 Then BN14=VA1 : VA1=0 : AN14=2 : Locate 3,2 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=14 and AN14=1 and BN14>VA1 or MB=14 and AN14=1 and BN14=VA1 Then VA1=0 : AN14=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=15 and AO15=1 and BO15<VA1 Then BO15=VA1 : VA1=0 : AO15=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=15 and AO15=1 and BO15>VA1 or MB=15 and AO15=1 and BO15=VA1 Then VA1=0 : AO15=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 100
- If MB=16 and AP16=1 and BP16<VA1 Then BP16=VA1 : VA1=0 : AP16=2 : Locate 3,22 : Pen 12 : Print " ";M$;" wins " : Wait 100
- If MB=16 and AP16=1 and BP16>VA1 or MB=16 and AP16=1 and BP16=VA1 Then VA1=0 : AP16=1 : Locate 3,22 : Pen 12 : Print " ";N$;" wins " : Wait 10
- ' add extra soldier
- If AA1=1 or AA1=2 Then BA1=BA1+1
- If AB2=1 or AB2=2 Then BB2=BB2+1
- If AC3=1 or AC3=2 Then BC3=BC3+1
- If AD4=1 or AD4=2 Then BD4=BD4+1
- If AE5=1 or AE5=2 Then BE5=BE5+1
- If AF6=1 or AF6=2 Then BF6=BF6+1
- If AG7=1 or AG7=2 Then BG7=BG7+1
- If AH8=1 or AH8=2 Then BH8=BH8+1
- If AI9=1 or AI9=2 Then BI9=BI9+1
- If AJ10=1 or AJ10=2 Then BJ10=BJ10+1
- If AK11=1 or AK11=2 Then BK11=BK11+1
- If AL12=1 or AL12=2 Then BL12=BL12+1
- If AM13=1 or AM13=2 Then BM13=BM13+1
- If AN14=1 or AN14=2 Then BN14=BN14+1
- If AO15=1 or AO15=2 Then BO15=BO15+1
- If AP16=1 or AP16=2 Then BP16=BP16+1
- Locate 0,23 : Print " "
- Locate 2,22 : Pen 6 : Print "all owned lands get an extra soldier " : Wait 100
- 'show stats
- Cls
- Pen 2 : Print "Land Soldiers Player"
- Print ""
- If AA1=1 Then Pen 3 : Print "1 ";BA1;" ";N$
- If AA1=2 Then Pen 12 : Print "1 ";BA1;" ";M$
- If AB2=1 Then Pen 3 : Print "2 ";BB2;" ";N$
- If AB2=2 Then Pen 12 : Print "2 ";BB2;" ";M$
- If AC3=1 Then Pen 3 : Print "3 ";BC3;" ";N$
- If AC3=2 Then Pen 12 : Print "3 ";BC3;" ";M$
- If AD4=1 Then Pen 3 : Print "4 ";BD4;" ";N$
- If AD4=2 Then Pen 12 : Print "4 ";BD4;" ";M$
- If AE5=1 Then Pen 3 : Print "5 ";BE5;" ";N$
- If AE5=2 Then Pen 12 : Print "5 ";BE5;" ";M$
- If AF6=1 Then Pen 3 : Print "6 ";BF6;" ";N$
- If AF6=2 Then Pen 12 : Print "6 ";BF6;" ";M$
- If AG7=1 Then Pen 3 : Print "7 ";BG7;" ";N$
- If AG7=2 Then Pen 12 : Print "7 ";BG7;" ";M$
- If AH8=1 Then Pen 3 : Print "8 ";BH8;" ";N$
- If AH8=2 Then Pen 12 : Print "8 ";BH8;" ";M$
- If AI9=1 Then Pen 3 : Print "9 ";BI9;" ";N$
- If AI9=2 Then Pen 12 : Print "9 ";BI9;" ";M$
- If AJ10=1 Then Pen 3 : Print "10 ";BJ10;" ";N$
- If AJ10=2 Then Pen 12 : Print "10 ";BJ10;" ";M$
- If AK11=1 Then Pen 3 : Print "11 ";BK11;" ";N$
- If AK11=2 Then Pen 12 : Print "11 ";BK11;" ";M$
- If AL12=1 Then Pen 3 : Print "12 ";BL12;" ";N$
- If AL12=2 Then Pen 12 : Print "12 ";BL12;" ";M$
- If AM13=1 Then Pen 3 : Print "13 ";BM13;" ";N$
- If AM13=2 Then Pen 12 : Print "13 ";BM13;" ";M$
- If AN14=1 Then Pen 3 : Print "14 ";BN14;" ";N$
- If AN14=2 Then Pen 12 : Print "14 ";BN14;" ";M$
- If AO15=1 Then Pen 3 : Print "15 ";BO15;" ";N$
- If AO15=2 Then Pen 12 : Print "15 ";BO15;" ";M$
- If AP16=1 Then Pen 3 : Print "16 ";BP16;" ";N$
- If AP16=2 Then Pen 12 : Print "16 ";BP16;" ";M$
- Print ""
- Print ""
- Pen 2 : Print " press any key to continue"
- Wait Key
- T=1
- Goto LANDSHOW